Criando uma simples lixeira para o usuário [Melhorado]
Publicado por Sandro Marcell 19/07/2007
[ Hits: 3.807 ]
Homepage: http://sanmarcell.wordpress.com
Versão melhorada de um script que cria uma simples lixeira para o usuário.
(Versão Tcl)
Falou!!!
#!/usr/bin/tcl # # Criando uma simples lixeira para o usuário. # (Versão Tcl) # # Autor: Sandro Marcell (sandro_marcell@yahoo.com.br) # # Uso: nome_script -r arquivo1 [arquivoN] # ou -e [Para esvaziar a lixeira] # # Obs.: # Arquivos e diretórios são removidos sem pedido de confirmação. # É possível o uso do metacaractere (*) # A opção -e remove a lixeira # Utilizando o script: proc Uso {argv0} { puts stderr "Uso: [file tail $argv0] -r arquivo1 \[arquivoN\] ou -e \[Para esvaziar a lixeira\]" } # Checando parâmetros: if {$argc == 0} { Uso $argv0 exit } # A lixeira: variable LIXEIRA "~/lixeira" if {![file exists $LIXEIRA]} { file mkdir $LIXEIRA } # Simples avisos: variable SUCESSO "Arquivo removido!" ERRO "-> Erro de entrada/saída. " # Capturando opção: set OPC [lvarpop argv 0] # Testando opção capturada: switch -- $OPC { -e { # Checando parâmetros: if {[llength $argv] >= 1} { puts stderr "A opção \[-e\] não aceita parâmetros." exit } else { if {[catch {file delete -force $LIXEIRA}] == 0} { puts stdout "Lixeira limpa!" exit } else { puts stderr $ERRO exit } } } -r { # Início do loop: foreach A $argv { # Testes condicionais: if {![file exists $A]} { puts stderr "-> Arquivo ou diretório não encotrado." continue } elseif {![file owned $A]} { puts stderr "-> Sem permissão para remover." continue } # Removendo: if {[catch {file copy -force $A $LIXEIRA}] == 0 &&\ [catch {file delete -force $A}] == 0} { puts stdout $SUCESSO } else { puts stderr $ERRO } } } default { Uso $argv0 exit } } # Fim
Convertendo escalas termométricas
Compactando / descompactando arquivos (Melhorado)
Simples visualizador de arquivos texto
Nenhum comentário foi encontrado.
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Conheça o Octopi, outro frontend para o Pacman com acesso ao ARU (Arch Linux e derivados)
Terminal transparente no Debian 12 com interface i3wm usando Xfce4-Terminal e Compton
Como compilar o DOOM RETRO no Linux
Stacer - um otimizador gráfico básico de Linux
Corrigindo o erro de "WARNING: Possibly missing firmware for module" no Arch Linux
Como colocar uma assinatura digital em um código compilado ! (0)
Após atualização do Ubuntu 22.04.4 LTS perdi a instalação da placa de ... (0)
DRIVER DE ADPTADOR HDMI PARA USB (2)